﻿Public Class Frm1ItemNuevo
    Public Function cargarProducto() As Boolean
        'Objeto Roles
        Dim accion As New ItemsDAO
        'Tabla temporal de roles
        Dim tabla As DataTable
        tabla = accion.mostrarTipoProducto
        'Comprobar si hay roles
        If tabla Is Nothing Then
            Return False
        Else

            'Trabajar con el control combox
            With cbxTipo
                'No se permite modificar
                .DataSource = accion.mostrarTipoProducto
                'Fuentes de dtao
                .DropDownStyle = ComboBoxStyle.DropDownList
                'Campo a mostrar
                .DisplayMember = "Descripcion"
                'Clave principal
                .ValueMember = "ID_Tipo_Producto"
                'No mostrar ningun rol
                .SelectedIndex = -1
            End With
            Return True
        End If
    End Function

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnCancelar.Click
        Me.Close()

    End Sub

    Private Sub btnAceptar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnAceptar.Click
        'Clase Usuario
        Dim dato As New Items
        'Clase Operaciones
        Dim accion As New ItemsDAO
        'Asignar los datos
        If txtNombre.Text = String.Empty Then
            ErrorProvider1.SetError(txtNombre, "Debe de ingresar el rol")
        Else
            ErrorProvider1.SetError(txtNombre, "")
            dato.pNombre = txtNombre.Text
            dato.pOrigen = txtOrigen.Text
            dato.pPresentacion = txtPresentacion.Text
            dato.pPeso = txtPeso.Text
            dato.pTalla = txtTalla.Text
            dato.pCosto = txtCosto.Text
            dato.pNC = txtNombre.Text & " " & txtOrigen.Text & " " & txtPresentacion.Text & " " & txtPeso.Text & " " & txtTalla.Text
            dato.pTipo = cbxTipo.SelectedValue
            'Agregar registro
            If accion.agregar(dato) Then
                MessageBox.Show("Registro almacenado", "Guardar", MessageBoxButtons.OK, MessageBoxIcon.Information)
                Frm1ItemMenuRMP.Show()
                Me.Close()
            Else
                MessageBox.Show("No se puede guardar el registro, contacte al administrador", "Advertencia", MessageBoxButtons.OK, MessageBoxIcon.Warning)
            End If

        End If
    End Sub

    Private Sub Frm1ItemNuevo_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        cargarProducto()

    End Sub
End Class